home *** CD-ROM | disk | FTP | other *** search
/ Digital Photo Album: Houko Kuwashima / Digital Photo Album: Houko Kuwashima.iso / photo.dxr / 00010.ls < prev    next >
Encoding:
Text File  |  1998-10-08  |  4.8 KB  |  116 lines
  1. global zoomfg, zoomlevel, photosprite, frameworksprite, frameworksprite2, originalwidth, originalheight, startloch, startlocv
  2.  
  3. on photozoom photonum
  4.   puppetSound(1, "C_view.aif")
  5.   set photosprite to 35
  6.   set frameworksprite to 36
  7.   set frameworksprite2 to 37
  8.   set currentsprite to 9 + photonum
  9.   if photonum < 10 then
  10.     set photonumstring to "0" & photonum
  11.   else
  12.     set photonumstring to photonum
  13.   end if
  14.   if the frame = 6 then
  15.     set photocast to "01_" & photonumstring & ".PIC"
  16.   else
  17.     if the frame = 11 then
  18.       set photocast to "02_" & photonumstring & ".PIC"
  19.     else
  20.       if the frame = 16 then
  21.         set photocast to "03_" & photonumstring & ".PIC"
  22.       else
  23.         if the frame = 21 then
  24.           set photocast to "04_" & photonumstring & ".PIC"
  25.         else
  26.           if the frame = 26 then
  27.             set photocast to "05_" & photonumstring & ".PIC"
  28.           end if
  29.         end if
  30.       end if
  31.     end if
  32.   end if
  33.   puppetSprite(photosprite, 1)
  34.   puppetSprite(frameworksprite, 1)
  35.   puppetSprite(frameworksprite2, 1)
  36.   set the castNum of sprite photosprite to member photocast
  37.   set the stretch of sprite photosprite to 1
  38.   set the stretch of sprite frameworksprite to 1
  39.   set the stretch of sprite frameworksprite2 to 1
  40.   set originalwidth to the width of member photocast
  41.   set originalheight to the height of member photocast
  42.   set the width of sprite photosprite to originalwidth * 25 / 100
  43.   set the height of sprite photosprite to originalheight * 25 / 100
  44.   set the width of sprite frameworksprite to originalwidth * 25 / 100
  45.   set the height of sprite frameworksprite to originalheight * 25 / 100
  46.   set the width of sprite frameworksprite2 to originalwidth * 25 / 100
  47.   set the height of sprite frameworksprite2 to originalheight * 25 / 100
  48.   if originalwidth < originalheight then
  49.     set startloch to the locH of sprite currentsprite + 35
  50.     set startlocv to the locV of sprite currentsprite + 50
  51.     set the locH of sprite photosprite to startloch
  52.     set the locV of sprite photosprite to startlocv
  53.     set the locH of sprite frameworksprite to startloch
  54.     set the locV of sprite frameworksprite to startlocv
  55.     set the locH of sprite frameworksprite2 to startloch
  56.     set the locV of sprite frameworksprite2 to startlocv
  57.   else
  58.     set startloch to the locH of sprite currentsprite + 50
  59.     set startlocv to the locV of sprite currentsprite + 35
  60.     set the locH of sprite photosprite to startloch
  61.     set the locV of sprite photosprite to startlocv
  62.     set the locH of sprite frameworksprite to startloch
  63.     set the locV of sprite frameworksprite to startlocv
  64.     set the locH of sprite frameworksprite2 to startloch
  65.     set the locV of sprite frameworksprite2 to startlocv
  66.   end if
  67.   if originalwidth > originalheight then
  68.     set the castNum of sprite frameworksprite to member 76
  69.     set the castNum of sprite frameworksprite2 to member 77
  70.   else
  71.     set the castNum of sprite frameworksprite to member 72
  72.     set the castNum of sprite frameworksprite2 to member 73
  73.   end if
  74.   set masksprite to 31
  75.   puppetSprite(masksprite, 1)
  76.   set the stretch of sprite masksprite to 1
  77.   set the width of sprite masksprite to the width of sprite currentsprite
  78.   set the height of sprite masksprite to the height of sprite currentsprite
  79.   set the loc of sprite masksprite to the loc of sprite currentsprite
  80.   set the visible of sprite masksprite to 1
  81.   set zoomlevel to 1
  82.   set zoomfg to 1
  83.   updateStage()
  84.   makevisible()
  85.   repeat while zoomlevel < 3
  86.     photomoving()
  87.     updateStage()
  88.     set zoomlevel to zoomlevel + 1
  89.     if zoomlevel = 2 then
  90.       set the visible of sprite frameworksprite2 to 1
  91.     end if
  92.   end repeat
  93.   cursor(-1)
  94.   go(#next)
  95. end
  96.  
  97. on makevisible
  98.   set the visible of sprite photosprite to 1
  99.   set the visible of sprite frameworksprite to 1
  100. end
  101.  
  102. on photomoving
  103.   set the width of sprite photosprite to originalwidth * (zoomlevel * 50) / 100
  104.   set the height of sprite photosprite to originalheight * (zoomlevel * 50) / 100
  105.   set the width of sprite frameworksprite to originalwidth * (zoomlevel * 50) / 100
  106.   set the height of sprite frameworksprite to originalheight * (zoomlevel * 50) / 100
  107.   set the width of sprite frameworksprite2 to the width of sprite frameworksprite
  108.   set the height of sprite frameworksprite2 to the height of sprite frameworksprite
  109.   set the locH of sprite photosprite to the locH of sprite photosprite + ((320 - startloch) / 2)
  110.   set the locV of sprite photosprite to the locV of sprite photosprite + ((240 - startlocv) / 2)
  111.   set the locH of sprite frameworksprite to the locH of sprite frameworksprite + ((320 - startloch) / 2)
  112.   set the locV of sprite frameworksprite to the locV of sprite frameworksprite + ((240 - startlocv) / 2)
  113.   set the locH of sprite frameworksprite2 to the locH of sprite frameworksprite2 + ((320 - startloch) / 2)
  114.   set the locV of sprite frameworksprite2 to the locV of sprite frameworksprite2 + ((240 - startlocv) / 2)
  115. end
  116.